www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelCustomPage\D_edit_a_template_before.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<%

dir_set="../../"


%>

<DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 306px; height: 22px;" >

请稍后......</div>



<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->



<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<script type="text/javascript" src="../../inc/zxml.js"></script>


<!--#include file=../../inc/ajaxLIB_no_loader.asp-->




<%


if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>
<%



Server.ScriptTimeout=9999999


session.timeout=600






psss=request("fbpath")

psss2="../../Model/Models/"&request("fbpath")



deepth_a=1
if psss<>"" then
for iiy=len(psss) to 1 step -1

if mid(psss,iiy,1)="/" then

deepth_a=deepth_a+1

end if

next

else
deepth_a=1

end if


sss1="../"
for ii=1 to deepth_a

sss1=sss1&"../"

next





'必须永远可执行，因为D_del_no_use_custom_adminpage.asp（删除所有在添加子模型时点 编辑后台管理页 时自动新建的没用的临时的后台管理页）
if 1=1 then


session("ok_hhhvm")=request("fbpath")








' 检测组件变量
dim isobj,VerObj,TestObj



'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub



  ObjTest(fssoo_nd_var_str_x_customx)



if not isobj then



sss1sss="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"

%>





<script language="javascript">

setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");


</script>






<%
response.end



else

sss1sss="检测中:支持FSO......"
















set rs112=server.CreateObject("adodb.recordset")
       
rs112.open "select top 1 * from ND_mdedit where type='last_editor_temp_path' order by id asc",conn,1,3
if rs112.eof then
rs112.addnew
rs112("type")="last_editor_temp_path"
rs112("data")="xxxxxxxxxx11111111xxxxs"
rs112.update

else

psss333=rs112("data")
psss333="../../Model/Models/"&psss333
rs112("data")=psss
rs112.update

end if















'==============================
dir_set_str=sss1




'==============================







set a11=new DosAsp 



dddd=loadfile("D_edit_a_template.asp")


dddd=replace(dddd,"$$dir_set$$",dir_set_str)

call deletefile(psss333&"D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")

call createfile(psss2&"D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)




dddd=loadfile("D_chk_edit_a_template.asp")

dddd=replace(dddd,"$$dir_set$$",dir_set_str)

call deletefile(psss333&"D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call createfile(psss2&"D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)




dddd=loadfile("checkadmin3.asp")

dddd=replace(dddd,"$$dir_set$$",dir_set_str)
dddd=replace(dddd,"$$admin$$",nd_web_admin_folder&"/")

call deletefile(psss333&"checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call createfile(psss2&"checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)








dddd=loadfile("D_del_a_moban.asp")

dddd=replace(dddd,"$$dir_set$$",dir_set_str)

call deletefile(psss333&"D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call createfile(psss2&"D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)




dddd=loadfile("css.css")

call deletefile(psss333&"css_www_aspcpu_com_newdsoft_ruandingyuan_x.css")
call createfile(psss2&"css_www_aspcpu_com_newdsoft_ruandingyuan_x.css",dddd,true)





dddd=loadfile("fckeditor_fullpage_html.asp")

call deletefile(psss333&"fckeditor_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")



call createfile(psss2&"fckeditor_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)




dddd=loadfile("fckeditor.original_fullpage.html")

call deletefile(psss333&"fckeditor.original_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.html")
call createfile(psss2&"fckeditor.original_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.html",dddd,true)






dddd=loadfile("fckdialog_fullpage.asp")

call deletefile(psss333&"fckdialog_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call createfile(psss2&"fckdialog_www_aspcpu_com_newdsoft_ruandingyuan_x.asp",dddd,true)
























%>




<script language="javascript">


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1sss%></font>';",0);


//alert("<%=psss2%>");
setTimeout("self.location='<%=psss2%>D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>&dirstr=<%=psss%>&d=<%=sss1%>&fpath=<%=request("fpath")%>';",10);


</script>



<%
end if


else

%>

<script language=javascript>





setTimeout("self.location='<%=psss2%>D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>&dirstr=<%=psss%>&d=<%=sss1%>&fpath=<%=request("fpath")%>';",10);

</script>


<%



end if
%>